home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / 1520driver.lst < prev    next >
File List  |  2007-02-28  |  2KB  |  82 lines
  1. 9000 //
  2. 9010 PROC DUMP1520(REVERSE,COLOR) CLOSED
  3. 9020  DIM D$ OF 1, MO$ OF 1, P$ OF 1
  4. 9030  DIM XC$ OF 3, YC$ OF 4, POS$ OF 9
  5. 9040  DIM ENDL$ OF 3
  6. 9050  IF REVERSE THEN
  7. 9060   D$:="M"; MO$:="D"
  8. 9070  ELSE 
  9. 9080   D$:="D"; MO$:="M"
  10. 9090  ENDIF 
  11. 9100  OPEN FILE 1,"",UNIT 6,1,WRITE
  12. 9110  OPEN FILE 6,"",UNIT 6,0,WRITE
  13. 9120  OPEN FILE 2,"",UNIT 6,2,WRITE
  14. 9130  OPEN FILE 7,"",UNIT 6,7,WRITE
  15. 9140  CURRENT'BACKGROUND:=PEEK(53281) MOD 16
  16. 9150  PRINT FILE 2: CHR$(COLOR+ORD("0")),
  17. 9160  FOR I:=1 TO 10 DO PRINT FILE 6: 
  18. 9170  PRINT FILE 1: " M80 199"
  19. 9180  FOR Y:=199 TO 0 STEP -2 DO
  20. 9190   YC$:=""
  21. 9200   STR(YC$,Y)
  22. 9210   YC$:=" "+YC$
  23. 9220   POS$:="M80"+YC$
  24. 9230   YY:=Y
  25. 9240   Z:=GETCOLOR(0,YY)
  26. 9250   PRINT FILE 1: POS$
  27. 9260   FOR I:=1 TO 2 DO
  28. 9270    IF I=CURRENT'BACKGROUND THEN
  29. 9280     SS:=0
  30. 9290     FF:=319
  31. 9300     SP:=1
  32. 9310     ENDL$:="399"
  33. 9320    ELSE 
  34. 9330     FF:=0
  35. 9340     SS:=319
  36. 9350     SP:=-1
  37. 9360     ENDL$:="80"
  38. 9370     YY:=Y-1
  39. 9380     YC$:=""
  40. 9390     STR(YC$,YY)
  41. 9400     YC$:=" "+YC$
  42. 9410     POS$:="M"+"399"+YC$
  43. 9420     PRINT FILE 1: POS$
  44. 9430    ENDIF 
  45. 9440    FOR X:=SS TO FF STEP SP DO
  46. 9450     IF GETCOLOR(X,YY)<>Z THEN
  47. 9460      IF Z=CURRENT'BACKGROUND THEN
  48. 9470       P$:=MO$
  49. 9480      ELSE 
  50. 9490       P$:=D$
  51. 9500      ENDIF 
  52. 9510      XC$:=""
  53. 9520      XX:=X
  54. 9530      IF I=2 THEN XX:=XX+1
  55. 9540      STR(XC$,XX+80)
  56. 9550      POS$:=P$+XC$+YC$
  57. 9560      PRINT FILE 1: POS$
  58. 9570      Z:=GETCOLOR(X,YY)
  59. 9580     ENDIF 
  60. 9590    ENDFOR X
  61. 9600    Z:=GETCOLOR(319,YY)
  62. 9610    IF Z<>CURRENT'BACKGROUND THEN
  63. 9620     POS$:=D$+ENDL$+YC$
  64. 9630     PRINT FILE 1: POS$
  65. 9640    ENDIF 
  66. 9650    Z:=GETCOLOR(319,Y-1)
  67. 9660   ENDFOR I
  68. 9670  ENDFOR Y
  69. 9680  PRINT FILE 1: "M"
  70. 9690  PRINT FILE 6: CHR$(13),CHR$(13)
  71. 9700  PRINT FILE 7: 
  72. 9710  CLOSE
  73. 9720 ENDPROC DUMP1520
  74. 9730 //
  75. 9740 PROC STR(REF Y$,X) CLOSED
  76. 9750  OPEN FILE 100,"#",UNIT 8,2,READ
  77. 9760  PRINT FILE 100: X
  78. 9770  PASS "B-P:2,1"
  79. 9780  INPUT FILE 100: Y$
  80. 9790  CLOSE FILE 100
  81. 9800 ENDPROC STR
  82.